home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / ASSEMBLE / H055.ZIP / MAC / LINK.MAC < prev    next >
Text File  |  1987-08-17  |  513b  |  28 lines
  1. LINK     MACRO EP=?
  2.      AIF   /&LABEL$$=/ .GO
  3. &LABEL$$ EQU   *
  4. .GO     AIF   &EP=?.EPLOC
  5.      AIF   &EP='.EPLIT
  6.      LA    1,=C'&EP..COM'
  7.      AGO   .SVC
  8. .EPLIT     LA    1,=C&EP
  9.      AGO   .SVC
  10. .EPLOC     AIF   &EPLOC=(.EPREG
  11.      LA    1,&EPLOC
  12.      AGO   .SVC
  13. .EPREG     AIF   &EPLOC=(1).SVC
  14.      LR    1,&EPLOC
  15. .SVC     SVC   25
  16.      LTR   15,15
  17.      BZ    *+34
  18.      SVC   9
  19.      DC    C'BUG MODULE NOT FOUND'
  20.      DC    8X'00'
  21.      STM   0,1,*-8
  22.      LR    15,0
  23.      LA    15,X'0210'(0,15)
  24.      BALR  14,15
  25.      L     2,*-20
  26.      L     1,*-20
  27.      SVC   11
  28.